home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group01b.txt / 000143_icon-group-sender_Tue Sep 25 12:25:47 2001.msg < prev    next >
Internet Message Format  |  2002-01-03  |  2KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.11.1/8.11.1) id f8PJOSw06397
  4.     for icon-group-addresses; Tue, 25 Sep 2001 12:24:28 -0700 (MST)
  5. Message-Id: <200109251924.f8PJOSw06397@baskerville.CS.Arizona.EDU>
  6. Date: Wed, 26 Sep 2001 00:05:43 +1000
  7. From: Bruce Gordon Rennie <brennie@dcsi.net.au>
  8. X-Newsgroups: comp.lang.icon
  9. Subject: Line limit for ICON on input
  10. To: icon-group@cs.arizona.edu
  11. Errors-To: icon-group-errors@cs.arizona.edu
  12. Status: RO
  13. Content-Length: 1195
  14.  
  15. To all,
  16.  
  17. I am reading a text file that is very large (over 100 Mbytes) and am using the
  18. following simple program to read and then write the file.
  19.  
  20. procedure main()
  21.     local ifile, cnttab, line, keyword, linesp, keyw, outp
  22.     write("Translation")
  23.     (ifile := open("f:\\A\\ForthNG.txt","r")) & write("Have opened file")
  24.     linesp := 0
  25.     cnttab := table(0)
  26.     outp := open("f:\\a\\forthSumNG.txt","w")
  27.     while line := read(ifile) do {
  28.         line ? (if ( ="Date:"   ) then write(outp,line))
  29.         (((linesp +:= 1 ) % 1000) = 0) & write(".",linesp)
  30.         if (linesp > 204900) then write(line)
  31.  
  32.     }
  33.     write(".",linesp)
  34. end
  35.  
  36. However, it is stopping at line 204931. The purpose is to remove a set of line,
  37. of which one is given as an example.  But it is not getting past the above line.
  38. My estimate is that there is over a million lines in this file. Can anyone shed
  39. any light on this.
  40.  
  41. I am using ICON for Windows Version 9.3.1 May 4 1998. Any help appreciated.
  42.  
  43. regards
  44. -- 
  45. Bruce Rennie ( from God's Own Country Downunder )
  46. Disciple of Jesus Christ in Training
  47.  
  48. The Cross of Jesus Christ - Salvation for all men.
  49.  
  50. Song of Solomon ( Song of Songs ) - The greatest Love Story Ever
  51. and a story for our times.
  52.  
  53. Be a GOD Chaser.
  54.  
  55.